﻿Public Class usrVeiculo

#Region "Declaracoes"

    Private msg As String

#End Region


#Region "Eventos"

    Private Sub btFiltrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btFiltrar.Click

        Dim frmConsultaVeiculos As New frmConsult
        frmConsultaVeiculos.Text = "Consulta Veiculos"
        frmConsultaVeiculos.ShowDialog()

    End Sub

    Private Sub btNovo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btNovo.Click
        estadoCamposNovoRegistro()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btFechar.Click
        If btFechar.Text.Equals("        Cancelar") Then
            estadoInicialDosCampos()
            limparCampos()
        Else
            Me.Dispose()
        End If
    End Sub

    Private Sub usrVeiculo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        estadoInicialDosCampos()
    End Sub

    Private Sub btSalvar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btSalvar.Click
        If isEmpty() Then
            MsgBox(msg, MsgBoxStyle.OkOnly, "Alerta")
        Else
            MsgBox("Registro Salvo com Sucesso", MsgBoxStyle.OkOnly, "Sucesso")
            limparCampos()
        End If
    End Sub

#End Region


#Region "Metodos"


#Region "Estado dos Campos"

    ''' <summary>
    ''' Estado inicial dos campos
    ''' </summary>
    ''' <remarks>Criado por Jandeilson Nascimento - 08/08/2011</remarks>
    Private Sub estadoInicialDosCampos()
        btExcluir.Enabled = False
        btSalvar.Enabled = False
        btNovo.Enabled = True
        btFiltrar.Enabled = True

        btFechar.Text = "      Fechar"

        txtAno.Enabled = False
        txtCor.Enabled = False
        txtCarro.Enabled = False
        txtFabricante.Enabled = False
        txtModelo.Enabled = False
        txtValorDia.Enabled = False

        ckcPossuiAlarme.Enabled = False
        ckcPossuiAr.Enabled = False
        ckcPossuiQuatroPortas.Enabled = False
        ckcPossuiTrava.Enabled = False
    End Sub

    ''' <summary>
    ''' Estado dos campos para novo Registro
    ''' </summary>
    ''' <remarks>Criado por Jandeilson Nascimento - 08/08/2011</remarks>
    Private Sub estadoCamposNovoRegistro()

        btExcluir.Enabled = False
        btFiltrar.Enabled = False
        btNovo.Enabled = False
        btSalvar.Enabled = True
        btFechar.Text = "        Cancelar"

        txtAno.Enabled = True
        txtCor.Enabled = True
        txtCarro.Enabled = True
        txtFabricante.Enabled = True
        txtModelo.Enabled = True
        txtValorDia.Enabled = True

        ckcPossuiAlarme.Enabled = True
        ckcPossuiAr.Enabled = True
        ckcPossuiQuatroPortas.Enabled = True
        ckcPossuiTrava.Enabled = True
        
    End Sub

    ''' <summary>
    ''' Estado dos campos caso edicao
    ''' </summary>
    ''' <remarks>Criado por Jandeilson Nascimento - 08/08/2011</remarks>
    Private Sub estadoCamposEdicao()

        btExcluir.Enabled = True
        btFiltrar.Enabled = False
        btNovo.Enabled = False
        btSalvar.Enabled = True
        btFechar.Text = "        Cancelar"

        txtAno.Enabled = True
        txtCor.Enabled = True
        txtCarro.Enabled = True
        txtFabricante.Enabled = True
        txtModelo.Enabled = True
        txtValorDia.Enabled = True

        ckcPossuiAlarme.Enabled = True
        ckcPossuiAr.Enabled = True
        ckcPossuiQuatroPortas.Enabled = True
        ckcPossuiTrava.Enabled = True
    End Sub

#End Region


#Region "Validacoes"

    ''' <summary>
    ''' Verifica se os campos estao preenchidos
    ''' </summary>
    ''' <returns>True/false</returns>
    ''' <remarks>Criado por Jandeilson Nascimento - 08/08/2011</remarks>
    Private Function isEmpty() As Boolean

        msg = "Informe os Campos Abaixo"

        If txtAno.Text.Equals("") Then msg += vbCrLf + "- Ano"
        If txtCarro.Text.Equals("") Then msg += vbCrLf + "- Carro"
        If txtCor.Text.Equals("") Then msg += vbCrLf + "- Cor"
        If txtFabricante.Text.Equals("") Then msg += vbCrLf + "- Fabricante"
        If txtModelo.Text.Equals("") Then msg += vbCrLf + "- Modelo"
        If txtValorDia.Text.Equals("") Then msg += vbCrLf + "- Valor dia"

        If msg <> "Informe os Campos Abaixo" Then
            Return True
        Else
            Return False
        End If

    End Function

    ''' <summary>
    ''' Metodo responsavel por limpar os campos da tela
    ''' </summary>
    ''' <remarks>Criado por Jandeilson Nascimento - 08/08/2011</remarks>
    Private Sub limparCampos()

        txtAno.Text = String.Empty
        txtCarro.Text = String.Empty
        txtCor.Text = String.Empty
        txtFabricante.Text = String.Empty
        txtModelo.Text = String.Empty
        txtValorDia.Text = String.Empty

        ckcPossuiAlarme.Checked = False
        ckcPossuiAr.Checked = False
        ckcPossuiQuatroPortas.Checked = False
        ckcPossuiTrava.Checked = False

    End Sub


#End Region


#End Region

End Class
